if the last line of stackScript is "end lastlines" then
answer "It is infected! Working on disinfection."
put empty into found
repeat with i=(the number of lines of stackScript) down to 1
if (line i of stackScript) contains "on openbackground --merryxmas" then
put i into found
end if
end repeat
if found is empty then
answer "Sorry, this must be a mutation. I can't fight it."
else
repeat until found > (the number of lines of stackScript)
delete line found of stackScript
end repeat
set the script of this stack to stackScript
answer "This stack has been fixed."
end if
else
answer "This stack is Merry Christmas Virus free."
end if
pop card
unlock screen
set lockmessages to false
set lockrecent to false
set the userlevel to oldlevel
end mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>329</left>
<top>172</top>
<right>439</right>
<bottom>193</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Check me…</name>
<script>on mouseUp
put the script of this stack into stackScript
if the last line of stackScript is "end lastlines" then
answer "I am infected! Working on disinfection."
put empty into found
put (the number of lines of stackScript)
repeat with i=(the number of lines of stackScript) down to 1
if (line i of stackScript) contains "on openbackground --merryxmas" then
put i into found
end if
end repeat
if found is empty then
answer "Sorry, this must be a mutation. I can't fight it."
else
repeat until found > (the number of lines of stackScript)
delete line found of stackScript
end repeat
set the script of this stack to stackScript
answer "I have been fixed."
end if
else
answer "I am Merry Christmas Virus free."
end if
end mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>472</left>
<top>315</top>
<right>511</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2478</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUp
set the visible of cd fld "info" to not the visible of cd fld "info"
end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>43</left>
<top>23</top>
<right>495</right>
<bottom>315</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>info</name>
<script>on mouseup
hide me
end mouseup</script>
</part>
<content>
<layer>card</layer>
<id>4</id>
<text>Merry Christmas Killer is meant to kill the HyperCard virus known as "Merry Christmas," or "Merry Xmas."
This virus was named "Merry Christmas" due to its signature in several lines, "Merry Christmas." I assume it was named after a worm released several years ago, also named "Merry Christmas." Aside from the name, and parasitic task, they share almost nothing in common.
Except for noticable delays opening stacks and virulent spreading, "Merry Christmas" does not appear to be malicious.
Whoever programmed this virus, I would like to extend my heartfelt hatred toward you. You not only made my waste nearly a day programming this, but you also have released a harmful parasite into the Macintosh community. May you forever be doomed to use Windows.
To use Merry Christmas Killer, FIRST SELECT "DISINFECT" AND DISINFECT THE HOME FILE. If you do not do this step, every stack you disinfect has a good chance of immediately being reinfected. And that is not good.
Once you have done this, click "Check Me." This is also very important, because it makes sure that Merry Christmas Killer has not picked up the virus along the way. (It probably has.)
After this, you have only begun! Now "Disinfect" every stack you own. If you forget a stack that is infected, it will reinfect your Home stack, thus restarting the cycle over again! :-(
If Merry Christmas Killer has helped you stay virus-free, or if it has removed a virus from your system, please support shareware by sending $4 to:
John Stiles
8800 St. Cloud Ln.
Bakersfield, CA 93311
Please help to keep shareware alive! Shareware is one of the few remaining things where one person can make a serious difference.
If you come across a version of "Merry Christmas" that is either reported as a "mutation" or is not found at all by this stack, please tell me!
(1994)[Mac].iso/Utilities/Merry Xmas Killer/PATs.png){kind=link}